with Ada.Text_IO; use Ada.Text_IO;
with Constants; use Constants;

package Folk is

   protected GOD is
      procedure initialization(id: out PassengerId);
   end GOD;

   task type Passenger is
      entry MoveToTrain;
      entry LeaveTrain(fl: out Boolean; station: in StationType);
   end Passenger;

     Passengers: array (PassengerId'First .. PassengerId'Last) of Passenger;

end Folk;
